home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / autodox2.zip / SAMPLE2.PAS < prev    next >
Pascal/Delphi Source File  |  1992-07-10  |  762b  |  57 lines
  1. Unit SAMPLE2;
  2.  
  3. Interface
  4.  
  5. Procedure ONE(a:integer,
  6.               b:real,
  7.               c:char);
  8. Function Four():Boolean;
  9.  
  10.  
  11. Implementation
  12.  
  13. ^^ commenting begins on this line
  14.  
  15. Uses CRT, DOS, AnyUnits, etc, etc, etc.;
  16.  
  17. Procedure ONE(a:integer,
  18.               b:real,
  19.               c:char);
  20. Begin
  21.          .
  22.          .
  23.      code goes here
  24.          .
  25.          .
  26. End;
  27.  
  28. Procedure TWO(a:integer,
  29.               b:real,
  30.               c:char);
  31. Begin
  32.          .
  33.          .
  34.      code goes here
  35.          .
  36.          .
  37. End;
  38.  
  39. Procedure Three;
  40. Begin
  41.          .
  42.          .
  43.      code goes here
  44.          .
  45.          .
  46. End;
  47.  
  48. Function Four():Boolean;
  49. Begin
  50.          .
  51.          .
  52.      code goes here
  53.          .
  54.          .
  55. End;
  56.  
  57. End.